home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / hello.uil < prev    next >
Text File  |  1995-06-29  |  784b  |  48 lines
  1.  
  2.  
  3. module hello_uil
  4.  
  5. object hello_main : XmForm {
  6.   controls {
  7.     XmLabel    world;
  8.     XmPushButton    hello;
  9.     XmList    alist;
  10.   };
  11. };
  12.  
  13. procedure tcl(string);
  14.  
  15. object world : XmLabel {
  16.   arguments {
  17.     XmNlabelString = "hello";
  18.  
  19.     XmNleftAttachment = XmATTACH_FORM;
  20.     XmNtopAttachment =  XmATTACH_FORM;
  21.     XmNbottomAttachment = XmATTACH_FORM;
  22.   };
  23. };
  24.  
  25. object hello : XmPushButton {
  26.   arguments {
  27.     XmNlabelString = "world";
  28.  
  29.     XmNwidth = 20;
  30.     XmNheight = 20;
  31.  
  32.     XmNleftAttachment = XmATTACH_WIDGET;
  33.     XmNleftWidget =     world;
  34.     XmNtopAttachment =  XmATTACH_FORM;
  35.     XmNbottomAttachment = XmATTACH_FORM;
  36.     XmNrightAttachment =  XmATTACH_FORM;
  37.   };
  38.   callbacks{
  39.     XmNarmCallback = procedure tcl("set uil_test 0");
  40.   };
  41. };
  42.  
  43. object alist : XmList {
  44. };
  45.  
  46. end module;
  47.  
  48.